home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / fido / flaglet.lha / Flaglet.spot
Text File  |  1995-09-20  |  831b  |  36 lines
  1. /* FlagLet.Spot by Anthony Brice - anthony@backyard.demon.co.uk */
  2.  
  3. /* Will go through every area in your Spot window and clear the
  4.    flags to all messages for what option you choose. I use this
  5.    because I hate having to see all these 'U' chars set in the areas
  6.    for Unreplied messages....                                        */
  7.  
  8. address SPOT
  9. options results
  10.  
  11. 'requestresponse TITLE "Flaglet 1.0 by Anthony Brice!" PROMPT "Process which flag on all messages ?" GADGETS "_Unreplied|_Keep|_Export|_ABORT" center'
  12. Flag=RC
  13.  
  14. If Flag=1 then Flag='UNREPLIED'
  15. If Flag=2 then Flag='KEEP'
  16. If Flag=3 then Flag='EXPORT'
  17.  
  18. If Flag=0 then Exit 0
  19.  
  20. 'lockgui'
  21. 'getnumareas'
  22. Areas=RESULT
  23. Area=1
  24. 'firstarea'
  25.  
  26. do until Area=Areas
  27.   'messagelist'
  28.   'includeflag ALL'  
  29.   'clearflags 'Flag''
  30.   'nextarea'
  31.   Area=Area+1
  32.   End 
  33. 'unlockgui'
  34.  
  35. Exit 0
  36.